Imports System.Data.SqlClient
Imports System.Xml
Public Class dDetalleRemitoCompra
    Public Function Existe(ByVal CodigoDetRemitoC As Integer, ByVal CodigoConcepto As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoDetRemitoC <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoDetRemitoC", CodigoDetRemitoC))
        End If
        If CodigoConcepto <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoConcepto", CodigoConcepto))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblDetalleRemitoCompraBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Fecha As String, ByVal Cantidad As Long, ByVal CodigoConcepto As Integer, ByVal CodigoRemito As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        If Cantidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If CodigoConcepto <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoConcepto", CodigoConcepto))
        End If
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblDetalleRemitoCompraALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoRemito As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        
        Return CapaDeDatos.dConexion.ABM("STORE_TblDetalleRemitoCompraELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoDetRemitoC As Integer, ByVal Fecha As String, ByVal Cantidad As Long, ByVal CodigoConcepto As Integer, ByVal CodigoRemito As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoDetRemitoC <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoDetRemitoC", CodigoDetRemitoC))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        If Cantidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If CodigoConcepto <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoConcepto", CodigoConcepto))
        End If
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblDetalleRemitoCompraMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoDetRemitoC As Integer, ByVal Fecha As String, _
    ByVal Cantidad As Long, ByVal CodigoConcepto As Integer, ByVal CodigoRemito As Integer) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoDetRemitoC <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoDetRemitoC", CodigoDetRemitoC))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        If Cantidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If CodigoConcepto <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoConcepto", CodigoConcepto))
        End If
        If CodigoRemito <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoRemito", CodigoRemito))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblDetalleRemitoCompraBUSCARFILTRADO", Parametros)
    End Function
End Class
